home *** CD-ROM | disk | FTP | other *** search
/ PC World 2007 January / PCWorld_2007-01_cd.bin / v cisle / autoit / autoit-v3.2.0.1-setup.exe / Include / GuiTab.au3 < prev    next >
Text File  |  2006-07-22  |  20KB  |  408 lines
  1. ; Include Version:1.66 (17 July 2006)
  2. #include-once
  3. #include <TabConstants.au3>
  4. ; ------------------------------------------------------------------------------
  5. ;
  6. ; AutoIt Version: 3.1.1++
  7. ; Language:       English
  8. ; Description:    Functions that assist with the Tab Control.
  9. ;
  10. ; ------------------------------------------------------------------------------
  11.  
  12. ; function list
  13. ;===============================================================================
  14. ; _GUICtrlTabDeleteAllItems
  15. ; _GUICtrlTabDeleteItem
  16. ; _GUICtrlTabDeselectAll
  17. ; _GUICtrlTabGetCurFocus
  18. ; _GUICtrlTabGetCurSel
  19. ; _GUICtrlTabGetExtendedStyle
  20. ; _GUICtrlTabGetItemCount
  21. ; _GUICtrlTabGetItemRECT
  22. ; _GUICtrlTabGetRowCount
  23. ; _GUICtrlTabGetUnicodeFormat
  24. ; _GUICtrlTabHighlightItem
  25. ; _GUICtrlTabSetCurFocus
  26. ; _GUICtrlTabSetCurSel
  27. ; _GUICtrlTabSetMinTabWidth
  28. ; _GUICtrlTabSetUnicodeFormat
  29. ;
  30. ; ************** TODO ******************
  31. ; _GUICtrlTabAdjustRECT ?
  32. ; _GUICtrlTabGetImageList
  33. ; _GUICtrlTabGetItem
  34. ; _GUICtrlTabInsertItem
  35. ; _GUICtrlTabRemoveImage
  36. ; _GUICtrlTabSetExtendedStyle
  37. ; _GUICtrlTabSetImageList
  38. ; _GUICtrlTabSetItem
  39. ; _GUICtrlTabSetItemExtra
  40. ; _GUICtrlTabSetItemSize
  41. ; _GUICtrlTabSetPadding ?
  42. ;===============================================================================
  43.  
  44. ;===============================================================================
  45. ;
  46. ; Description:            _GUICtrlTabDeleteAllItems
  47. ; Parameter(s):        $h_tabcontrol - controlID
  48. ; Requirement:            None
  49. ; Return Value(s):    Returns TRUE if successful, or FALSE otherwise.
  50. ; User CallTip:        _GUICtrlTabDeleteAllItems($h_tabcontrol) Removes all items from a tab control. (required: <GuiTab.au3>)
  51. ; Author(s):            Gary Frost (custompcs at charter dot net)
  52. ; Note(s):                This does not delete the controls on the tabitems
  53. ;
  54. ;===============================================================================
  55. Func _GUICtrlTabDeleteAllItems($h_tabcontrol)
  56.    If IsHWnd($h_tabcontrol) Then
  57.       Local $a_ret = DllCall("user32.dll", "int", "SendMessage", "hwnd", $h_tabcontrol, "int", $TCM_DELETEALLITEMS, "int", 0, "int", 0)
  58.       Return $a_ret[0]
  59.    Else
  60.       Return GUICtrlSendMsg($h_tabcontrol, $TCM_DELETEALLITEMS, 0, 0)
  61.    EndIf
  62. EndFunc   ;==>_GUICtrlTabDeleteAllItems
  63.  
  64. ;===============================================================================
  65. ;
  66. ; Description:            _GUICtrlTabDeleteItem
  67. ; Parameter(s):        $h_tabcontrol - controlID
  68. ;                            $i_item - Index of the item to delete.
  69. ; Requirement:            None
  70. ; Return Value(s):    Returns TRUE if successful, or FALSE otherwise.
  71. ; User CallTip:        _GUICtrlTabDeleteItem($h_tabcontrol, $i_item) Removes an item from a tab control. (required: <GuiTab.au3>)
  72. ; Author(s):            Gary Frost (custompcs at charter dot net)
  73. ; Note(s):                This does not delete the controls on the tabitem
  74. ;
  75. ;===============================================================================
  76. Func _GUICtrlTabDeleteItem($h_tabcontrol, $i_item)
  77.    If IsHWnd($h_tabcontrol) Then
  78.       Local $a_ret = DllCall("user32.dll", "int", "SendMessage", "hwnd", $h_tabcontrol, "int", $TCM_DELETEITEM, "int", $i_item, "int", 0)
  79.       Return $a_ret[0]
  80.    Else
  81.       Return GUICtrlSendMsg($h_tabcontrol, $TCM_DELETEITEM, $i_item, 0)
  82.    EndIf
  83. EndFunc   ;==>_GUICtrlTabDeleteItem
  84.  
  85. ;===============================================================================
  86. ;
  87. ; Description:            _GUICtrlTabDeselectAll
  88. ; Parameter(s):        $h_tabcontrol - controlID
  89. ;                            $i_bool - Flag that specifies the scope of the item deselection.
  90. ;                                        If this parameter is set to FALSE, all tab items will be reset.
  91. ;                                        If it is set to TRUE, then all tab items except for the one currently selected will be reset.
  92. ; Requirement:            None
  93. ; Return Value(s):    None
  94. ; User CallTip:        _GUICtrlTabDeselectAll($h_tabcontrol, $i_bool) Resets items in a tab control. (required: <GuiTab.au3>)
  95. ; Author(s):            Gary Frost (custompcs at charter dot net)
  96. ; Note(s):                This only works if $TCS_BUTTONS style flag has been set.
  97. ;
  98. ;===============================================================================
  99. Func _GUICtrlTabDeselectAll($h_tabcontrol, $i_bool)
  100.    If IsHWnd($h_tabcontrol) Then
  101.       DllCall("user32.dll", "int", "SendMessage", "hwnd", $h_tabcontrol, "int", $TCM_DESELECTALL, "int", $i_bool, "int", 0)
  102.    Else
  103.       GUICtrlSendMsg($h_tabcontrol, $TCM_DESELECTALL, $i_bool, 0)
  104.    EndIf
  105. EndFunc   ;==>_GUICtrlTabDeselectAll
  106.  
  107. ;===============================================================================
  108. ;
  109. ; Description:            _GUICtrlTabGetCurFocus
  110. ; Parameter(s):        $h_tabcontrol - controlID
  111. ; Requirement:            None
  112. ; Return Value(s):    Returns the index of the tab item that has the focus.
  113. ; User CallTip:        _GUICtrlTabGetCurFocus($h_tabcontrol) Returns the index of the item that has the focus in a tab control.  (required: <GuiTab.au3>)
  114. ; Author(s):            Gary Frost (custompcs at charter dot net)
  115. ; Note(s):                The item that has the focus may be different than the selected item.
  116. ;
  117. ;===============================================================================
  118. Func _GUICtrlTabGetCurFocus($h_tabcontrol)
  119.    If IsHWnd($h_tabcontrol) Then
  120.       Local $a_ret = DllCall("user32.dll", "int", "SendMessage", "hwnd", $h_tabcontrol, "int", $TCM_GETCURFOCUS, "int", 0, "int", 0)
  121.       Return $a_ret[0]
  122.    Else
  123.       Return GUICtrlSendMsg($h_tabcontrol, $TCM_GETCURFOCUS, 0, 0)
  124.    EndIf
  125. EndFunc   ;==>_GUICtrlTabGetCurFocus
  126.  
  127. ;===============================================================================
  128. ;
  129. ; Description:            _GUICtrlTabGetCurSel
  130. ; Parameter(s):        $h_tabcontrol - controlID
  131. ; Requirement:            None
  132. ; Return Value(s):    Returns the index of the selected tab if successful, or $TC_ERR if no tab is selected.
  133. ; User CallTip:        _GUICtrlTabGetCurSel($h_tabcontrol) Determines the currently selected tab in a tab control.  (required: <GuiTab.au3>)
  134. ; Author(s):            Gary Frost (custompcs at charter dot net)
  135. ; Note(s):
  136. ;
  137. ;===============================================================================
  138. Func _GUICtrlTabGetCurSel($h_tabcontrol)
  139.    If IsHWnd($h_tabcontrol) Then
  140.       Local $a_ret = DllCall("user32.dll", "int", "SendMessage", "hwnd", $h_tabcontrol, "int", $TCM_GETCURSEL, "int", 0, "int", 0)
  141.       Return $a_ret[0]
  142.    Else
  143.       Return GUICtrlSendMsg($h_tabcontrol, $TCM_GETCURSEL, 0, 0)
  144.    EndIf
  145. EndFunc   ;==>_GUICtrlTabGetCurSel
  146.  
  147. ;===============================================================================
  148. ;
  149. ; Description:            _GUICtrlTabGetExtendedStyle
  150. ; Parameter(s):        $h_tabcontrol - controlID
  151. ; Requirement:            None
  152. ; Return Value(s):    Returns a DWORD value that represents the extended styles currently
  153. ;                            in use for the tab control.
  154. ;                            This value is a combination of tab control extended styles.
  155. ; User CallTip:        _GUICtrlTabGetExtendedStyle($h_tabcontrol) Retrieves the extended styles that are currently in use for the tab control.  (required: <GuiTab.au3>)
  156. ; Author(s):            Gary Frost (custompcs at charter dot net)
  157. ; Note(s):
  158. ;
  159. ;===============================================================================
  160. Func _GUICtrlTabGetExtendedStyle($h_tabcontrol)
  161.    If IsHWnd($h_tabcontrol) Then
  162.       Local $a_ret = DllCall("user32.dll", "int", "SendMessage", "hwnd", $h_tabcontrol, "int", $TCM_GETEXTENDEDSTYLE, "int", 0, "int", 0)
  163.       Return $a_ret[0]
  164.    Else
  165.       Return GUICtrlSendMsg($h_tabcontrol, $TCM_GETEXTENDEDSTYLE, 0, 0)
  166.    EndIf
  167. EndFunc   ;==>_GUICtrlTabGetExtendedStyle
  168. ;===============================================================================
  169. ;
  170. ; Description:            _GUICtrlTabGetItemCount
  171. ; Parameter(s):        $h_tabcontrol - controlID
  172. ; Requirement:            None
  173. ; Return Value(s):    Returns the number of items if successful, or zero otherwise.
  174. ; User CallTip:        _GUICtrlTabGetItemCount($h_tabcontrol) Retrieves the number of tabs in the tab control.  (required: <GuiTab.au3>)
  175. ; Author(s):            Gary Frost (custompcs at charter dot net)
  176. ; Note(s):
  177. ;
  178. ;===============================================================================
  179. Func _GUICtrlTabGetItemCount($h_tabcontrol)
  180.    If IsHWnd($h_tabcontrol) Then
  181.       Local $a_ret = DllCall("user32.dll", "int", "SendMessage", "hwnd", $h_tabcontrol, "int", $TCM_GETITEMCOUNT, "int", 0, "int", 0)
  182.       Return $a_ret[0]
  183.    Else
  184.       Return GUICtrlSendMsg($h_tabcontrol, $TCM_GETITEMCOUNT, 0, 0)
  185.    EndIf
  186. EndFunc   ;==>_GUICtrlTabGetItemCount
  187.  
  188. ;===============================================================================
  189. ;
  190. ; Description:            _GUICtrlTabGetItemRECT
  191. ; Parameter(s):        $h_tabcontrol - controlID
  192. ;                            $i_item - Zero-based index of a tab control item.
  193. ; Requirement:            None
  194. ; Return Value(s):    Array containing the RECT, first element ($array[0]) contains the number of elements
  195. ;                            If an error occurs, the return value is $TC_ERR.
  196. ; User CallTip:        _GUICtrlTabGetItemRECT($h_tabcontrol, $i_item) Retrieves the bounding rectangle for a tab in a tab control.  (required: <GuiTab.au3>)
  197. ; Author(s):            Gary Frost (custompcs at charter dot net)
  198. ; Note(s):
  199. ;
  200. ;===============================================================================
  201. Func _GUICtrlTabGetItemRECT($h_tabcontrol, $i_item)
  202. ;~     typedef struct _RECT {
  203. ;~       LONG left;
  204. ;~       LONG top;
  205. ;~       LONG right;
  206. ;~       LONG bottom;
  207. ;~     } RECT, *PRECT;
  208.    Local $RECT = "int;int;int;int"
  209.    Local $left = 1
  210.    Local $top = 2
  211.    Local $right = 3
  212.    Local $bottom = 4
  213.    Local $p, $v_ret
  214.    $p = DllStructCreate($RECT)
  215.    If @error Then Return SetError($TC_ERR, $TC_ERR, $TC_ERR)
  216.    If IsHWnd($h_tabcontrol) Then
  217.       $v_ret = DllCall("user32.dll", "int", "SendMessage", "hwnd", $h_tabcontrol, "int", $TCM_GETITEMRECT, "int", $i_item, "ptr", DllStructGetPtr($p))
  218.       If (Not $v_ret[0]) Then Return SetError($TC_ERR, $TC_ERR, $TC_ERR)
  219.    Else
  220.       $v_ret = GUICtrlSendMsg($h_tabcontrol, $TCM_GETITEMRECT, $i_item, DllStructGetPtr($p))
  221.       If (Not $v_ret) Then Return SetError($TC_ERR, $TC_ERR, $TC_ERR)
  222.    EndIf
  223.    Local $array = StringSplit(DllStructGetData($p, $left) & "," & DllStructGetData($p, $top) & "," & DllStructGetData($p, $right) & "," & DllStructGetData($p, $bottom), ",")
  224.    Return $array
  225. EndFunc   ;==>_GUICtrlTabGetItemRECT
  226.  
  227. ;===============================================================================
  228. ;
  229. ; Description:            _GUICtrlTabGetRowCount
  230. ; Parameter(s):        $h_tabcontrol - controlID
  231. ; Requirement:            None
  232. ; Return Value(s):    Returns the number of rows of tabs.
  233. ; User CallTip:        _GUICtrlTabGetRowCount($h_tabcontrol) Retrieves the current number of rows of tabs in a tab control.  (required: <GuiTab.au3>)
  234. ; Author(s):            Gary Frost (custompcs at charter dot net)
  235. ; Note(s):                Only tab controls that have the $TCS_MULTILINE style can have multiple rows of tabs.
  236. ;
  237. ;===============================================================================
  238. Func _GUICtrlTabGetRowCount($h_tabcontrol)
  239.    If IsHWnd($h_tabcontrol) Then
  240.       Local $a_ret = DllCall("user32.dll", "int", "SendMessage", "hwnd", $h_tabcontrol, "int", $TCM_GETROWCOUNT, "int", 0, "int", 0)
  241.       Return $a_ret[0]
  242.    Else
  243.       Return GUICtrlSendMsg($h_tabcontrol, $TCM_GETROWCOUNT, 0, 0)
  244.    EndIf
  245. EndFunc   ;==>_GUICtrlTabGetRowCount
  246.  
  247. ;===============================================================================
  248. ;
  249. ; Description:            _GUICtrlTabGetUnicodeFormat
  250. ; Parameter(s):        $h_tabcontrol - controlID
  251. ; Requirement:            None
  252. ; Return Value(s):    Returns the Unicode format flag for the control.
  253. ;                            If this value is nonzero, the control is using Unicode characters.
  254. ;                            If this value is zero, the control is using ANSI characters.
  255. ; User CallTip:        _GUICtrlTabGetUnicodeFormat($h_tabcontrol) Retrieves the Unicode character format flag for the control.  (required: <GuiTab.au3>)
  256. ; Author(s):            Gary Frost (custompcs at charter dot net)
  257. ; Note(s):
  258. ;
  259. ;===============================================================================
  260. Func _GUICtrlTabGetUnicodeFormat($h_tabcontrol)
  261.    If IsHWnd($h_tabcontrol) Then
  262.       Local $a_ret = DllCall("user32.dll", "int", "SendMessage", "hwnd", $h_tabcontrol, "int", $TCM_GETUNICODEFORMAT, "int", 0, "int", 0)
  263.       Return $a_ret[0]
  264.    Else
  265.       Return GUICtrlSendMsg($h_tabcontrol, $TCM_GETUNICODEFORMAT, 0, 0)
  266.    EndIf
  267. EndFunc   ;==>_GUICtrlTabGetUnicodeFormat
  268. ;===============================================================================
  269. ;
  270. ; Description:            _GUICtrlTabHighlightItem
  271. ; Parameter(s):        $h_tabcontrol - controlID
  272. ;                            $i_item - Zero-based index of a tab control item.
  273. ;                            $i_bool - Value specifying the highlight state to be set.
  274. ;                                        If this value is TRUE, the tab is highlighted
  275. ;                                        If FALSE, the tab is set to its default state.
  276. ; Requirement:            None
  277. ; Return Value(s):    Returns nonzero if successful, or zero otherwise.
  278. ; User CallTip:        _GUICtrlTabHighlightItem($h_tabcontrol, $i_item, $i_bool) Sets the highlight state of a tab item.  (required: <GuiTab.au3>)
  279. ; Author(s):            Gary Frost (custompcs at charter dot net)
  280. ; Note(s):
  281. ;
  282. ;===============================================================================
  283. Func _GUICtrlTabHighlightItem($h_tabcontrol, $i_item, $i_bool)
  284.    If IsHWnd($h_tabcontrol) Then
  285.       Local $a_ret = DllCall("user32.dll", "int", "SendMessage", "hwnd", $h_tabcontrol, "int", $TCM_HIGHLIGHTITEM, "int", $i_item, "int", $i_bool)
  286.       Return $a_ret[0]
  287.    Else
  288.       Return GUICtrlSendMsg($h_tabcontrol, $TCM_HIGHLIGHTITEM, $i_item, $i_bool)
  289.    EndIf
  290. EndFunc   ;==>_GUICtrlTabHighlightItem
  291.  
  292. ;===============================================================================
  293. ;
  294. ; Description:            _GUICtrlTabSetCurFocus
  295. ; Parameter(s):        $h_tabcontrol - controlID
  296. ;                            $i_item - Zero-based index of a tab control item.
  297. ; Requirement:            None
  298. ; Return Value(s):    None
  299. ; User CallTip:        _GUICtrlTabSetCurFocus($h_tabcontrol, $i_item) Sets the focus to a specified tab in a tab control.  (required: <GuiTab.au3>)
  300. ; Author(s):            Gary Frost (custompcs at charter dot net)
  301. ; Note(s):                If the tab control has the $TCS_BUTTONS style (button mode),
  302. ;                            the tab with the focus may be different from the selected tab.
  303. ;                            For example, when a tab is selected, the user can press the arrow
  304. ;                            keys to set the focus to a different tab without changing the selected tab.
  305. ;                            In button mode, $TCM_SETCURFOCUS sets the input focus to the button associated
  306. ;                            with the specified tab, but it does not change the selected tab.
  307. ;
  308. ;                            If the tab control does not have the $TCS_BUTTONS style, changing the focus
  309. ;                            also changes the selected tab.
  310. ;
  311. ;===============================================================================
  312. Func _GUICtrlTabSetCurFocus($h_tabcontrol, $i_item)
  313.    If IsHWnd($h_tabcontrol) Then
  314.       DllCall("user32.dll", "none", "SendMessage", "hwnd", $h_tabcontrol, "int", $TCM_SETCURFOCUS, "int", $i_item, "int", 0)
  315.    Else
  316.       GUICtrlSendMsg($h_tabcontrol, $TCM_SETCURFOCUS, $i_item, 0)
  317.    EndIf
  318. EndFunc   ;==>_GUICtrlTabSetCurFocus
  319.  
  320. ;===============================================================================
  321. ;
  322. ; Description:            _GUICtrlTabSetCurSel
  323. ; Parameter(s):        $h_tabcontrol - controlID
  324. ;                            $i_item - Zero-based index of a tab control item.
  325. ; Requirement:            None
  326. ; Return Value(s):    Returns the index of the previously selected tab if successful, or $TC_ERR otherwise.
  327. ; User CallTip:        _GUICtrlTabSetCurSel($h_tabcontrol, $i_item) Selects a tab in a tab control.  (required: <GuiTab.au3>)
  328. ; Author(s):            Gary Frost (custompcs at charter dot net)
  329. ; Note(s):                A tab control does not send a $TCN_SELCHANGING or $TCN_SELCHANGE
  330. ;                            notification message when a tab is selected using this message.
  331. ;
  332. ;===============================================================================
  333. Func _GUICtrlTabSetCurSel($h_tabcontrol, $i_item)
  334.    If IsHWnd($h_tabcontrol) Then
  335.       Local $a_ret = DllCall("user32.dll", "int", "SendMessage", "hwnd", $h_tabcontrol, "int", $TCM_SETCURSEL, "int", $i_item, "int", 0)
  336.       Return $a_ret[0]
  337.    Else
  338.       Return GUICtrlSendMsg($h_tabcontrol, $TCM_SETCURSEL, $i_item, 0)
  339.    EndIf
  340. EndFunc   ;==>_GUICtrlTabSetCurSel
  341.  
  342. ;===============================================================================
  343. ;
  344. ; Description:            _GUICtrlTabSetMinTabWidth
  345. ; Parameter(s):        $h_tabcontrol - controlID
  346. ;                            $i_width - Minimum width to be set for a tab control item.
  347. ;                                        If this parameter is set to -1, the control will use the default tab width.
  348. ; Requirement:            None
  349. ; Return Value(s):    Returns an INT value that represents the previous minimum tab width.
  350. ; User CallTip:        _GUICtrlTabSetMinTabWidth($h_tabcontrol, $i_width) Sets the minimum width of items in a tab control.  (required: <GuiTab.au3>)
  351. ; Author(s):            Gary Frost (custompcs at charter dot net)
  352. ; Note(s):
  353. ;
  354. ;===============================================================================
  355. Func _GUICtrlTabSetMinTabWidth($h_tabcontrol, $i_width)
  356.    If IsHWnd($h_tabcontrol) Then
  357.       Local $a_ret = DllCall("user32.dll", "int", "SendMessage", "hwnd", $h_tabcontrol, "int", $TCM_SETMINTABWIDTH, "int", 0, "int", $i_width)
  358.       Return $a_ret[0]
  359.    Else
  360.       Return GUICtrlSendMsg($h_tabcontrol, $TCM_SETMINTABWIDTH, 0, $i_width)
  361.    EndIf
  362. EndFunc   ;==>_GUICtrlTabSetMinTabWidth
  363.  
  364. ;===============================================================================
  365. ;
  366. ; Description:            _GUICtrlTabSetPadding
  367. ; Parameter(s):        $h_tabcontrol - controlID
  368. ;                            $i_cx
  369. ;                            $i_cy
  370. ; Requirement:            None
  371. ; Return Value(s):    None
  372. ; User CallTip:        _GUICtrlTabSetPadding($h_tabcontrol, $i_cx, $i_cy) Sets the amount of space (padding) around each tab's icon and label in a tab control.  (required: <GuiTab.au3>)
  373. ; Author(s):            Gary Frost (custompcs at charter dot net)
  374. ; Note(s):
  375. ; not sure if this ones working
  376. ;===============================================================================
  377. ;~ Func _GUICtrlTabSetPadding($h_tabcontrol, $i_cx, $i_cy)
  378. ;~    If IsHWnd($h_tabcontrol) Then
  379. ;~       DllCall("user32.dll", "none", "SendMessage", "hwnd", $h_tabcontrol, "int", $TCM_SETPADDING, "int", 0, "int", $i_cy * 65535 + $i_cx)
  380. ;~    Else
  381. ;~         GUICtrlSendMsg($h_tabcontrol, $TCM_SETPADDING, 0, $i_cy * 65535 + $i_cx)
  382. ;~     EndIf
  383. ;~ EndFunc   ;==>_GUICtrlTabSetPadding
  384.  
  385. ;===============================================================================
  386. ;
  387. ; Description:            _GUICtrlTabSetUnicodeFormat
  388. ; Parameter(s):        $h_tabcontrol - controlID
  389. ;                            $i_bool - Determines the character set that is used by the control.
  390. ;                                        If this value is nonzero, the control will use Unicode characters.
  391. ;                                        If this value is zero, the control will use ANSI characters.
  392. ; Requirement:            None
  393. ; Return Value(s):    Returns the previous Unicode format flag for the control.
  394. ;                            If this value is nonzero, the control is using Unicode characters.
  395. ;                            If this value is zero, the control is using ANSI characters.
  396. ; User CallTip:        _GUICtrlTabSetUnicodeFormat($h_tabcontrol, $i_bool) Sets the Unicode character format flag for the control.  (required: <GuiTab.au3>)
  397. ; Author(s):            Gary Frost (custompcs at charter dot net)
  398. ; Note(s):
  399. ;
  400. ;===============================================================================
  401. Func _GUICtrlTabSetUnicodeFormat($h_tabcontrol, $i_bool)
  402.    If IsHWnd($h_tabcontrol) Then
  403.       Local $a_ret = DllCall("user32.dll", "int", "SendMessage", "hwnd", $h_tabcontrol, "int", $TCM_SETUNICODEFORMAT, "int", $i_bool, "int", 0)
  404.       Return $a_ret[0]
  405.    Else
  406.       Return GUICtrlSendMsg($h_tabcontrol, $TCM_SETUNICODEFORMAT, $i_bool, 0)
  407.    EndIf
  408. EndFunc   ;==>_GUICtrlTabSetUnicodeFormat